home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / recent / gui4unzp.lha / Gui-4-UnZip next >
Text File  |  1997-01-28  |  1KB  |  64 lines
  1. ;GUI 4 UnZip Version 0.6 by Kevin Anderson  andersok@mail.bogo.co.uk
  2. ;7th January 1997
  3. ;For use with UnZip by Greg Roelofs
  4.  
  5.  
  6. LAB Start
  7. C:Requestchoice >env:ZIPchoice "GUI 4 UnZip ver 0.6""So what do you wanna do then ?""List Zip""Test Zip""Extract Here""Extract To""Cancel"
  8.  
  9. IF $ZIPchoice eq "0"
  10. skip EndIt
  11. ENDIF
  12.  
  13. IF $ZIPchoice eq "1"
  14. skip ListZIP
  15. ENDIF
  16.  
  17. IF $ZIPchoice eq "2"
  18. skip TestZIP
  19. ENDIF
  20.  
  21. IF $ZIPchoice eq "3"
  22. skip HereZIP
  23. ENDIF
  24.  
  25. IF $ZIPchoice eq "4"
  26. skip ToZIP
  27. ENDIF
  28.  
  29. LAB ListZIP
  30. C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to List"
  31. Unzip -l $ZIPfile
  32. wait 30
  33. endcli
  34. skip start
  35.  
  36. LAB TestZIP
  37. C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to Test"
  38. Unzip -t $ZIPfile
  39. wait 30
  40. endcli
  41. skip start
  42.  
  43. LAB HereZIP
  44. C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to UnZip"
  45. unzip $ZIPfile
  46. endcli
  47. skip start
  48.  
  49. LAB ToZIP
  50. C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to UnZip"
  51. skip WhereZip
  52.  
  53. LAB EndIt
  54. endcli
  55. skip start
  56.  
  57. LAB WhereZIP
  58. C:Requestfile >env:ZIPDrawer TITLE "Where shall I UnZip to ?"
  59. unzip $ZIPfile -d $ZIPDrawer
  60. endcli
  61. skip start
  62.  
  63. END
  64.